Imports System.Windows.Forms

Public Class frmNewInstall

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub frmNewInstall_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        optInstall.Text &= GetSetting(REGAPP, "General", "AppDataPath", AppDataPath).Replace(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "<My Documents>")
        optBrowse.Text &= "; the current directory is: " & AppDataPath.Replace(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "<My Documents>")
    End Sub

End Class
